home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 92 / 092.d81 / intro print (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  45 lines
  1. 5 poke56,32:clr
  2. 7 dv=peek(186):ifdv<8thendv=8
  3. 10 poke53281,0:poke53280,0:print"[147][159]"
  4. 12 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  5. 14 sys57812"intro.shp",dv,0:poke780,0:poke781,0:poke782,32:sys65493
  6. 16 sys57812"wp.o $c000",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  7. 20 poke251,32:poke252,64:poke253,96
  8. 22 sys51456
  9. 80 wp=49152
  10. 100 print"[147]"tab(6)"[129][212]he [205]ighty [156][204] [207] [193] [196] [211] [212] [193] [210]"
  11. 110 printtab(9)"[129][201]ntro [211]creen [208]rinter"
  12. 120 print"[154]     [212]his program will print out the"
  13. 130 print" nifty picture that greets you when you
  14. 140 [153]" boot (NULL)ide (NULL)ne of (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL).  right$t uses"
  15. 150 [153]" (NULL)right$(NULL)str$(NULL)(NULL)(NULL)(NULL)right$(NULL)(NULL) from (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #86, which
  16. 160 print" works with printer/interface combos"
  17. 170 print" that emulate a [195]ommodore 1525 or [197]pson"
  18. 180 print" printer.
  19. 190 [153]" (NULL)(NULL)atnlenvalopen - toggles between intro screen
  20. 200 print"         and this screen.
  21. 210 [153]"   (NULL)open   - prints the picture.
  22. 220 print"   [209][159]   - quits to [204][207][193][196][211][212][193][210].
  23. 225 [151]198,0
  24. 230 [161]a$:[139]a$[179][177]" "[175]a$[179][177]"p"[175]a$[179][177]"q"[167]230
  25. 240 [139]a$[178]" "[167][158]51459:[137]225
  26. 250 [139]a$[178]"q"[167]500
  27. 260 [159]4,4:[152]4:[160]4
  28. 265 [139]st[178]0[167]300
  29. 270 [151]214,21:[153]:[153]" (NULL)urn your printer on and press a key."
  30. 275 [151]198,0
  31. 280 [161]a$:[139]a$[178]""[167]280
  32. 290 [137]100
  33. 300 [139]([194](53270)[175]16)[178]0[167][158]51459
  34. 310 [158]wp
  35. 315 [151]251,32:[151]252,64:[151]253,96
  36. 320 [158]51456:[158]51459
  37. 330 [137]225
  38. 500 [139][194](53270)[175]16[167][158]51459
  39. 510 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  40. 520 [139]er[179][177]63[167][153]"load":[128]
  41. 530 [153]"loadstopload"[199](34)"hello connect"[199](34)",8"
  42. 540 [153]"run"
  43. 550 [151]631,13:[151]632,13:[151]198,2:[128]
  44. 10000 [159]15,8,15,"s0:intro print":[160]15:[148]"intro print",8:[128]
  45.